print "Hello! I am a sample perl program";
print "that counts to ten.\n\n";

for($i = 1; $i <=10; $i++) {
    print "$i\n";
}

print "\nThanks for running me.\n";
          